home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / general / ByteArray.st < prev    next >
Text File  |  2000-02-13  |  390b  |  22 lines
  1. Class ByteArray :ArrayedCollection
  2. [
  3.    new: size
  4.       ^ <primitive 116 size>
  5. |
  6.    at: index
  7.       ^ <primitive 118 self index>
  8. |
  9.    at: index put: value
  10.       <primitive 119 self index value>
  11. |
  12.    printString   ! str !
  13.       str <- '#[ '.
  14.       (1 to: self size)
  15.          do: [:i | str <- str , (self at: i) printString , ' '].
  16.  
  17.       ^ str , ']'
  18. |
  19.    size
  20.       ^ <primitive 117 self>
  21. ]
  22.